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rogrammers’ programs’, 3:43% 
1 user. to write in a language 


; c «loaded back. into the computer and executed before the. 
re compact and meaningful j4<: ‘pr 


problem being programmed is solved.inszirt: Assis) eco? 
The two approaches, compilation and interpretation; 

have different strengths and weaknesses. An interpreter, . 

iterpreting and executing line by line; can stop‘at the 













































ginning: computers. were’ prograaraied it~" firet sign of an error and give a helpful and specific error.” 
anguage. To execute a simple equation, such as.%¢: message. The’ interpretation can also be interrupted. at 


; to write dozens of instructions, He had”“any. point;:(to. be. later ‘resumed) ‘allowing’ the human ~ - 
” to telf the: machine;.“load the accumulator with‘the first’? 
byte of the number B,” and.“store the accumulator. in the. fs 
memory. location assigned to. the’ first byte. off Ax" ddiz 
nauseam. A more complicated equation like C=LOG(D) 
required hundreds or even thousands of instructions! It' 


a7 SPE 7H GLaLEIERE2T2S EERE ES 


‘as long. af it did the first time. In fact,:if there is looping: 
than:once; these lines. are completely-teinterpreted, as if ” 
they. “had. never: been seen: before,’ éach: time they: are- 
‘encountered:: This redundant ‘interpretation wastes’ lot. 
‘of computer,’time, making, interpreted programs some= 






; has | 
gram); the: result. is-a pure, machin 
instructions that can be executed without further transla~ - 
tion, Although this results in more vague error-messages,:.- 
the advantage to compilation is speed. Depending on the 
problems a,compiled program typically’ executes several 

ps faster than an interpreted .one—soretimes;::the. 
speed advantage is.as large as a factor of 1007'Once a pro- 
gtam has been compiled,“it never needs.to’ 
ES ete eer a ee einen} 
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preted (or reinterpreted) every time it is executed... tis Bu Rnd Se 
‘A compiler acts rather differently. Like an:interpreter,. -The: output of a compiler does tend to b 
it scans through’a:high-level program and figures out “.. the original source program (which the interpreter uses), 
what fundamental operations are necessary to-execute —_ so that interpreters may seem to have the advantage in 
each line. But; instead of performing those operations, a. ~ terms of memory usage. But, when one remembers that 
compiler just writes out (ie: onto a cassette tape drive) the _the interpreter must be continuously resident in the com- 
sequence of machine-language instructions that do the —_puter’s memory while the program is running, whereas 
job. when executed. An interpreter executes a program _ the compiler caf be removed after the program has been 
statement by statement, as it interprets it, so that the compiled, the apparent memory advantage of interpreta- 
interpreter and the program execute concurrently. But, _ tion over compilation shrinks and often vanishes. 
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3 Fesource that a typical BASIC in read-only memory. 
- represents. In those read-only memories are hidden 
... dozens of useful; thoroughly tested, efficient. machine- 
“* language subroutines, it would be a shame not to take full 
: advantage of them: Bp eye EE Bs toe 
‘3 What-I've done’ is’ to’ write a tiny compiler for a.~ 
* _1 call. FLOPTRAN-IV,. which. stands.’ for ' 
FLOating-Point TRANslator, version 4. The compiler is 
written in Microsoft (PET) BASIC and is presented in full . 
‘** in listing 1. As written and debugged, the FLOPTRAN-IV . 
* compiler runs on an original-version 8 K-byte Com- 
modore PET. The.new PETs, which have a different set 
of read-only memory chips, have. moved many, of the _ 
subroutine entry points so that, to run FLOPTRAN on 
“<-guch a machine, it will be necessary to find the new” 
. addresses and change them as they appear in the program 


of listing Lev. baba eine anh Nabe eon o a dn 
~' Other 6502-microprocessor. machines using Microsoft ’ 
BASIC; such as the Apple and Ohio Scientific systems, : 
will require more extensive changes in the FLOPTRAN 
compiler in order to make it- operational, although the . 
‘overall structure of the compiler should still be applica- 
ble. In fact, the idea of a tiny compiler that uses the resi- 
dent BASIC subroutines to. do the bulk of its work is: 
extremely general and applicable to systems using any. 
microprocessor, Once I had thought of the concept, it.” 
°¥’ took me only a couple of days.to get the compiler up and. 
running; anyone with an intimate knowledge of his per- 
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computer. 
BASIC: interpreter, but to get a compil 




















necessary to pay d 
mane disk varagh; al ~ sonal system should be able to do as well, 
"But :there, is no reason why’ a language like BASI A st Hr 2UR MER ge 
should not be compiled instead of interpreted. Also, there ] : 

: c FLOPTRAN, the floating-point translator, 


‘ising reason to ignore. or throw away the wonderful 


‘because it is heavily oriented toward floating-point.’ 
.| mathematical operations., For. compatibility with: the 
PET's read-only memory routines, it uses the standard 
Microsoft format for storing ‘numbers: five 8-bit bytes, 
with 1 byte for the exponent (power of 2) and 4 bytes for: - 
‘the fractional part (or mantissa) of the number and its” 
“sign. Built into FLOPTRAN are the functions given. in; 

table. 1;. the ability. to ‘call; a’ user-defined machine-: 
function USR is also included, although it may 
' be, used: ‘infrequently:, [Several:. articles.;on’ comput 
“representation of floating-point numbers may be found 
the. book Numbers in. Theory. and. Practice, . which 
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" (return-from-subroutine);; thus, after the compiled’ pro- 
gram is run using the SYS command, control will. i 
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SOFTWARE ‘= " 
fneluding ASCIT 





Ag, 
+ AE alotive tink og" b 
hy oftvore products, F 
AY ei and MACRO 80 In, CP/M: 
3 ‘ a NORTHSTFR, 
t: package’ 
> com 


Lon ey-fil 
dt Reo 
WERE.) 2 
4 















test. and debug a FLOPTRAN program by using, the.- 
‘| BASIC interpreter built into the PET. Wher the program’ 
” has been fully debugged, the compiler program need only- 
“be ‘exécuted once;. thereafter, . the compiled. machine-- 
: language program can be executed directly. “35.2 203. > 
Note that the PET’s Microsoft BASIC interpreter stores: 
the reserved words (ie: keywords) of the BASIC language 
as single bytes in memory: GOTO is stored as the single- 

: hae Bhog oo Rs Text continued on page 212” 
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Listing 1: FLOPTRAN- Vv caeiuiler program hop the brigisal ontdok: PET. “This program will convert a FLOPTI RAN“ IV program’, 
(actually a subset of BASIC) to an executable machine-code program, which is written to the PET cassette tape drive to be loaded ata 
* later time, When typing this listing into a PET, my the statements aesceieten with one ioe number are to be shure on ee same dine, 








separated by colons. 


Soko 











49000.X= 
Mla 

















leave at least 40 blanks here ‘ ‘ 
to be filled in during a “LET? operation 





subroutine ta get next nonblank character 
and veturn it in CH: - 





3ZHAINT(Z/256) 
S1L"2~-25692H - |.” 


49400 PRINTAL, $49. 
sPRIMTAL,ZL. © 








SR $BA74 vith A EY. set up as. above: 
ptransfers. the value of the variable being: 
spointed at to the primary accuaulator for floating: 
‘point operations, “PRI* st to 

dd 7 bytes to the progran-counter. & return W 








 APRINTAT, 116° e 
© sPRINTHE, 218 
















© URETURR: 





sdata for floating point ROM "subroutine. calls, re ‘byte pairs. 


iq 49600 BATA tt, 219, 158, 219, 12, 2, %* 0, 58, 210, 133, alo 4 
i SGN, INT,ABS,USR,FRE,POS o. we 


49640 DATA 36,222,69, 223,191, 28, 140, 222, 158, 9223, 165, 223 
bevy pare EXP,COS, SEN 





Listing I continued on page 202 





Z “4 a : DS Grete 133 on inquiry card, — 








Listing 1 continued: . 
49720 FOR X=0 TO 19 
BREAD MLI(X,0) ,MLZCX,1) 
IMEX X : 
49740 FOR X=0 10 255 
e SLWZ(X)9-32767 
aWEXT X 
RETURN Gy 
Ve 
50000 BIN xX, LNK(255 GOZ(127,1) ,MEZC19, 1). 
“AP atO2S - 
100800 oh 


“30040 L=PEEK(P+2)+256ePEEK(P+3) 

‘ SIF L<>49000 THEN P=PEEK(P)+256ePEEK(P +1) 

260TO 50040 ' 

SO100 XLaPsg = ; ng 
2G0SUB 49600. ~ ‘ 
TINPUT “COMPILED DATA FILE NAMES; 8 
“SOPEW 1,1,1,C8 








50120 INPUT “ORIGIN FOR COBE";0C° 
oo TPRINTAT OC >. sat 
Ios _tPC=0C g 





50140 mepuT VARIABLE. TABLE ORIGIN" 
» aTPE1028 : ‘ 





$0200 “LESPEEK( TP | y42560PEEKCTPY 
- t1F Lass Soro: 000d : ; 

: 50220. “Unt «Pc 33769 
Ey PRIN {CORESLING CINE*;L1 | 





woz eosuy- ay 00 ae 





‘ 50240 IF cleo THEW TReTP+4 
36070 90200 





7 50280) If cH=se 6oro 30240- - 





: 50300 iF chet36 Goro 58000 


‘ 50320 IF. cysts GOTO 59000 


0340 iF cuts ‘GoTo 59500, 





50360: AE cie139: e070 58500 





50380 IF ts137) OR ‘(cHet4t) ora 30700, y 















50460 GOSUR 49100. ee meee 
HIF CHC>I7E GOTO 47200 


“soaeo cosus 49100 
“aT (CH>129) AND (CHK195) GOTO 51000" 





Ei 50500 IF “cht GOTO S500, - ‘ 
s 50520 BOSUB 49190 


aVbeZb 
1HeZH 
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5 “Tepassignaents during later Compilation 















spit had better: be a fd 





¢ BEUZPRCHR IS aeans a nonadic function . 


























tisload addresses into MUX array, low byte, then high 


; initialize UNZ array of line numbers so'that nonexistent 
aeli 
: 


nes will be flagged later 


RUN 50000 to enter progran here & conpile code. 
dimension X first so aake. it easy to find later 
initialize pointer P & GOTO/GOSUB Counter GC 


look up Line nunber & scan . vas 
to locate subroutine 49000 to be used in ‘LET’ wee 





fi 






store location of first space after tase ie line 49000 in XL 
initialize mr and LNZ arrays ay 


srrget, tile. nane ‘4 open data Lice for complied progran, 
7330 stores starting location for conpilation aie at 
write it to tape to begin data file 

initialize program counter PC 


ariables occupy 245 contiguous locations beginning at OV... 
iinitinlize text pointer to ttest dine munber of, HABIC prosran 


put. line nunber in LI. : 
ariconptling progran has lines in range o- 258----exit ani finished 





tore current Pc iw LWZILT) to be used in ait0s: or ‘Gosuns later 
mRounce bag Screen what line: is ing sonpiied now s , 











tiget next rorblank charac er an cH’. i u 


0” is end-of-Line, nurker----nove: text potnter ‘tervara ans 
0p Ae set next line ee : 





eee 


99°98" is a ‘=-=-100p back to aio nultiole ‘staten ats/line eee 





i139" is | 





HeN37 is’ 


143’ As 





347142" is “RETURN? the 6502 i a instruction, % decinal.- 
“RETURN’ also ends the compiled progran & returns to BASIC. atter: 
a ers command starts machin 













get next character 











Pera ie: 


abort if not! 











next character - 





WA isa /o! sign, | as 


otheruise, it better be a variable. nane 
Store the address of the variable in Wh, ww 





Listing 1 continued on page 204 


x: 
2 


51120 PRENTAI,32 


y 36500 ‘a0su 49100. : 
phe 02 tIF CHO GOTO 56500 


* 38000 oosua 49100 








Listing 1 continued: ~ Ss oe é 
. \ , 
































30540 GOSUB 49100 : ‘ 
aIF (CH=0) OR (CH=38) sor $8300 sesif “end-of- Line’ or “4%, equation is of the form “V=u’ 
305460 IF (CH<#70) OR (CHD>174) GOTO 49200 ~yppotherwise, expect +,-,%,/,° and abort if not 
$0580 FU=CK-155 © ; +e9FU now records what operator it was | 
sG0SUB 49100 s2eget next character 
sGOSUB 49190 ¢ serbetter be variable nane...address in ZL, ZH . 
rGOSUR 49400 | . stswrite out code to transfer it to primary accumulator: 
50860 PRINTAT, 169° ZpgLDA MUL 
aPRINTAT UL . : Be a ae : . 
1PRINTHT, 160 , te S77LaY un 
TPRINTHS UH Sool ee : 
sPC=PC+4 re ea ¢epcount the bytes and increnent program counter © 
50700 IF (FU=t5) OR (F179 GOTO Stoeo. ; jitake shortcut for “+” or “*” functions 
30720 PRINTH1 32 A usr *DISE traasters vu" to secondary accunulator 
sPRIWTH1,94 - sppand sets up for dyadic sperstion subroutine call 
sPRINTHI,217 ty 
2PC=PCO3 eet . ; iepcount the bytes... 
360T0 51080’. Go nah ge ee De aa Sele sii Juap down to output code to do the + operation & store result 
. 7 f , _ ' 
31000 FUSCH-180 tpyarrive here to perforn a monadic function 
2G608U9 49100 “eet 8 us : 
LIF CRK>40 GOTO 49200. at ppenext character better bea , else abort! 
51040 GOSUB 49100 .. eae og . . 3 : 
1G0SUB 49190 e, ee tR, S get argunent of function, address in ZL, ZH 
2 reosus 49400 | cai x fetch it to prinary floating accunulator ee! 
51060, G0SUD 49100. eee a i EP eaae 
y IF CHC>at ‘0TO 49200 3 ‘Ss " $spexpect to see a “)7 hevel!t : geies 
51000 PRINTSI,32°° eT) 53 FUSR te ROW function : 


“cy SPRINTAL,HLR(FU,O) oss a a —_ 
SEPRINTODGMLZCFUQD) 
ipcercea een fae S . ae ea 





S1too PRINTOL, 162 
TPRINTOT, VL 
-sAPRINTAN, 160 

“. aPRINTON ,VH 



















saeLBX OV 





ry avi 


JER SBAAS vith aise in x ay registers’ 
ta store result of calculation fran priaany: accunulater 





IPRINTAS 166 .: 

IPRIWTA!,21@ °° 

CE APCRPCHT ws 
16070 50240 







iback, to top of natn loep. 





55600, GOSUB 49100. 
et BOSUB. 49190,-.5 
"260SUB 49400 
> EPRINTAL , 169. >. 
_IPRIATAD 255 


=. iiihandle nonadic ’-* operator: | ‘ 





transfer nuaber to be iégated’t to primary floating accunulator — 
aprLDA MOFF 












55660 PRINTHI,6% | : 
pee SPRINTED, HOD OS 
2p UPRENTAL, 133 

“\ sPRINTAT, 181 











ghandle “REM? statenent © 
;loop until and-of- line encountered 









546540 GOTO $0260.’ nite te Bee Fr asec to top of main loop | 






andle “LET” assignnent operation ? 

sget address for result to be stored into 

his character better be an ‘=’ sign 7 
ave pointer to first character after a? in VL 
pppabort if it wasn‘t “2” 


260SUR 49t90 °~ 

160SUD 49100 

aVL=TP+t : a 
uF che178 80TO 49200 








‘ 


3a080 GOSUR 49100 
IF (CHC>S8) AND tcH<0 GOTO Seose 





Scan until ‘8° or ‘end-of-line’ terminates assignnent 
Listing 1 continued on page 206 
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etic tc a niercka 






































Listing U continued: i ye ; 
38100 IF TP-VL>60 THEN PRINT “LINE TCO LONG!" Fpesubroutine 49000 only has room for 60 characters----sorry! 
2600 49200 a, vs: " . 


50120 FOR LeVL TO TP-1 


s P z iv take the whole Supression: td be evaluated for the ‘LET’ 
tUL*PEEK(L) . - a i 
tPOKE XL#L-VL,UL pppand POKE it inte subroutine 47000 

EXT ee fd Meoteachee eo 4 


58140 Gosus 49000 #9390 evaluate ‘the expression!----resuit returns in variable X 










HL aPC 25deuH 


2FOR LAVL-TO TP-1 Syd ohn , Phe pt wise este peat 
SPOKE XL#L-UL,32 at ~ > bepaad clean up (fill with blanks again) subroutine 49000 
IHEXT ; ad OO, hl a ‘ ; : es 
56180 PRINTAT,24 ‘ ce oe aa cLc : ; ; po Boe as 
<SPRINTHL, 144 . + $37BCC .#$ - (a forced branch over the following $ bytes) 
2PRINTOS,5 : a en sat Mant i 
2PCePC+3~ . a Base ise De ee 
1VLs2549PEEK (125) +PEEK( 124062 ma " " pppoint Vi te the place. where X is stored now : 
50220 FOR L=vi YO VLH4 aS eee “i gpetetch all 5 bytes of the current value of X Bo hae 
UPRINTAD sPEEK(L) ie os “gesand write then into the Conpiled file © Pos woke 
 AWEXT OL Sap a a , te 
. SURMINT (PC7256) 2g HN ANE oo” Eggstore ‘their location tn, th ‘compiled code in WH, ve ise 















Peeput the address. tor ihe result, of the: “LEY to be stored inte 
tin Mr VA, and fa junta: the “assiavasny/ handling routine ‘ 





“0300 paierat, 162° 
‘4 SPRINTOT A 

aPRINTHT, 189 
IPRINTON SUL 
PRINTAL 






andle sisple assiganente of the forn “ves: here | 
xa. on age : 








‘5340 PRINTHI, 157: ies 
ei APRINTIL ME 
IPRINTOL,VH. 
_YPRINT#L, 202° °° * 






58360 PRINTE, 16° eis Oh Se ig 
tPRINTHT 5247 eS a 

LS EPONPEOEE as 
so0To $0260. 





50500 GOSUR 49100.) |, 
160SUB 49190,” 
IPRINTHL, 173 
| SPRINTAL, TL: 
“ EPRINTHL ZH: | 
» APRINTAT 240: 









get variable folloving the nade omen address in rn 
sepLDA'Z - z z 















pea ad at variab 
sess PRINTAT, 3... 
PCSPL$S 


“160803 49100 





jet next charactar . . 
bort att pat “BOT! or 














3 of the conpile -cod 
he opcade,.to be filled 1@ later (secand-pass) * 
ring Zeroes for now, to hold the spaces. 


iPRINTHT,O 
APRENTAE SOF rt oh os 
vy APUSPGHT ea 





aTLs9 r - an mittalize target Hine nuaber” mn ; ma 
s#00 eosus 49100 ee ; Oe a ae ae a) 
VIF. (CH<48). OR (CHO57) eoto ‘senda . Hq 


iiread in ASCIL target line nunber 


5ee20 TL#100TL+CH-48 


treand convert it to a nunber in us 
36070 58800 


a . Listing 1 continued on page 210 
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Listing I continued: 
58840 60%(6C,1)=TL 
t6C=6C+1 

16070 50260 


59000 SosuB 49100 
IF (CHO) OR (CH=58) GOTO 59400 


39040 IF (che44y OR (CH=59) GOTO 59000 


59080 GOSUB 49190 
1608UB 49400 
IPRINTOT,32 | 
TPRINTHI,175°° 
2PRINTHI ,220 


Sele PRINT#I 162 
tPRINTAI,O 
tPRINTAI, 199 
TPRTNTAL SO 
TPRINTAL, 1 


59120 PRINTAI, 240 
TPRINTOL, 6 
280SUB 59300 
PRINTHT, 232 
TPRINTES, 208 
sPRINTAY, 245 


59160 PRINTOI, 169. 
TPRINTON 32 fhe 
tGOSUB. 59300” : 

t. OPCePCeNE 
18070 S9000° |. Gs sees 


_ 59500 PRINTAI,32, 
IPRINTHS,210 ©. a 
SPRINT, 255, 





ARETURN 


59400 PRINTRY,149 
sPRINTHI,13 
s60S5UR 39300 
aPCaPCeS 
16070 50260 


59500 GosuD 49100 
vlF (CHed) OR (Chess) Boro 50260 


59540 IF (cheaay oR CcHes9) 80T0 59500 


59560 GOSUB 49190 
aPRINTOI, 169. . 
SPRINTAT, CH.) 
oes ay soe : 





59580 PRINTIt, 169. : a0 
’ 1PRINTON 43 vA tee 
360SuD 59300 ‘ 











59600 PRINTS 
“1 #PRINTEN,O 
IPRINTAL 32° : 

“oot SPRINTHE, 207 Oe 


PRINT PBB mii bea) 


. 59620 PRINTS, 19 

; sPRINTES, 10° 
SPRINTHI, 232 
IPRINTHL, 209 
IPRINTOY 13 : 


59460 PRINTSt, 208 
SPRINTEL 2446 
sG0SUB 59300 
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.t5efinished when ‘end-of-line’ or. 73’, . 

















ecord target line nunber in Goz 
ncrenent GOTO/GOSUB counter GC. 
back to top of main loop 











jhandie a ‘PRINT’ statenent 
juhen done with line or Statenent,, print a <CRLF> before quitting 


Keep going if “,’ or “3° encountered within ‘PRINT’ 


get address of variable to be printed 
transfer it to primary accunulator 
JSR SBCAF converts it to ASCII string at top of page I> 





treLDX #0 


ra3LBA $100,X 


rH) ath (end of string is marked by @ zero) 


jsubroutine outputs code te print accunulater on screen - 
NX 





o-63 (aluays loop bach. ..sunber ts never longer than 14 bytes) 





A 032° (ASCIZ blank space). 


print accunulater out 
count bytes . 
and Cont tinue with print statenent, en te above sn 








s35LDA SOB” E<CRLFD) 


: iFépriat : it. aie 












sback to top of aain oop 


andie “teu? Statenent 


sheep going if, te or 73” ; 





BA ACH os : ie As 


rint neenet ise letter on 3 ‘er 





HLA H93F (ascii “777 





print it : : . praia t 
: see 


bes sL BX 0. (to totitatize counter tor twput characters) . 











we yJ8R src "(Cmputs, with cursor for user ta edit) 


“dss ts AEE Ge a 


#p08TA GA,X || (atore input. sturt in basic input buffer? .. 





s33CMP HOB (check for <CRLF>) 


(loop and keep inputting) 


resecho <CRLF> 
Listing 1 continued on page 212 





eas. 


. 59700 PRINTAI, 133 


66060, PRINTHI,-1 


Listing 1 continued: 
39680 PRINTHI, 169 
sPRINTHI,O 
IPRINTON, 133 
,. UPRINTHL, 14 
:  SPRINTEN,169 
tPRINTET, 10 


APRINTHI, 143 
TPRINTOL, 202 
+ sPRINTAN, 138 
IPRINT@L 32 
TPRINT#E, 144 


359760 PRINTAI,214 


teELDA #0 


Fh78TA $71 





pas4SR Oden 





S378TA $72 


FEsLDA ASA 


(set up string pointer ta beginning of input? 


(transfer nunber of characters in string to 4) 
(convert string ta floating-point in primary accun.) 


IPRINTOI, 142 seebeX WZL 





UPRINTOH ZL 
< sPRINTOI,160 
_ SPRINTEY, ZH 


59780 PRINTA, 32 
tPRINTHT, 166 
2PRINTOI,218 q 
2PC=PC+45 ‘ 
16070 9500- ; 









0000 PRINT “FIRST PASS FINISHE: 
“SPRINT*PROGRAN OCCUPIES"; 0C; 


HROUGH" ;PC~1 


“+ 60029 PRINT*VARIABLES OCCUPY®;0V; "THROUGH*;0V+129 





HIF 8CxO GOTO 61000 





0080 FOR X90 70 GC-1 
IPRINTAA , GOX(X, 0432767 
1L860Z(X,1) ~ 
1Z=LNZ(L 1432767 








40100 IF 220 THEN PRINT “TRANSFER TO NONEXISTENT LIVE rr iL 





$0120 THeINT(2/256) 
sZLe2-25602H 

2PRINTAL,ZL 
sPRINTON,ZH 









ext continued d from page 198: - 


byte value 137,.COS is stored as. 190, ‘etc, This abs 
system saves memory. within BASIC programs; when a: 
line is listed to the display, it is decoded so that it can be 


read in its original form. Encoding also makes the job of 


_ the FLOPTRAN compiler easier. Because BASIC encodes. - 
reserved words as 1-byte values rather than a sequence of ' 


letters, there is, for example, no confusion as to whether 
the letter G is a variable name or the first letter of a 


Me GOTO or GOSUB statement. 





Compiler Prosram ‘Alva. 


Because the FLOPTRAN compiler i is rather tiny, the ' 
language in its present version is a restricted subset of : 


BASIC. The following paragraphs will describe each type 
of statement that FLOPTRAN understands and explain 
how it works. The line numbers refer to the statements in 
the BASIC program of listing 1 that process a given type 
of statement. 
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sostBY @ZH 


r39JSR SDAA 


In most BASICS, however, it is is legal to say: 


(point to target location to store result) 


(store prinary nenory contents in target) 


secount bytes (a lot!) 
s33and loop 


compiling progran finished 
print statistics 


‘Segmark end of first pass on tape file 
e7skip if no juaps to be corrected 


syiprimt byte to be fixed 
spsloak up desired line number to branch to 
sesftnd uhat the progran counter was there 


; 3 
280TO 61000 sepcatch errors 


“ Fpsrecord correct junp (JNP or JSR) target 
iiifor all that need fixing 


ysmark end of file i 
spthat’s all, folksltit!: \ 


\ 


The LET Statement 


Lines 58000 thru’ 58360: To assign : a alas toa ivalable 
during compilation, most BASIC — allow us to use 
a statement like: -.. 





"Xm. 2348— -3" ies 





LET X=1.2¢E—5 


In fact, in the original BASIC language, the use of the | 
word LET was compulsory. 

FLOPTRAN demands the presence of the reserved 
word LET. When the compiler sees LET, it notes the 
immediately following variable name, which will receive 
the assigned value on the right side of the equals sign. The 
compiler then literally copies the right-hand side of the 
equation into the blank space available in the subroutine 
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ne bink reverse, 1 2 





rote, OFatected and tank fields 
rovth independent taud 
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$1099.00 





Hoeft ngnt retary: 
and read 


Call for Low Price 


We Also Represent the Following Manufacturers: 


DIABLO DEC TEXAS INSTRUMENTS 
ANADEX GTC TELETYPE 


a Tula: Moya O-]0m lomcolmelelmae-1-mer-1c-) (eye Lt 


‘some variable, 


$699.00 


at line 49000, and calls that subroutine! to evaluate the 
expression. Thus, statements such as: 


LET P=17*LOG(x/137E8) + ATN(— 2) 


are perfectly legal ways to initialize a variable, as long as 
the right-hand side will fit into line 49000. 

A LET assignment cannot, however, use variable 
names in its equation unless those variables have been 


~ defined at compilation time; it would not be legal to say: 


LET A=—44: sLET B=A 


since eA will take on its value of —44 only when the pro- 
gram is executed. (In this case, unless A were defined 
before running the compiler, B would be assigned the . 
value 0.) The use of variables on the right-hand side of 
the assignment is covered tier, under arithmetic opera- 
tions, 

After evaluating the expression that is to be auned to 
e compiler writes out code (to device 1, 
the PET’s cassette tape drive) which, in 6502 machine lan- 
guage, instructs the microprocessor to skip 5 bytes. 
Those 5 bytes are filled with the floating-point number to 
be assigned to the variable; then the compiler executes 
lines 58300 thru 58360, which takes the stored number 
and transfers it to the proper target location. i 

FLOPTRAN allows only single-letter variable names, 
A thru Z, and reserves storage for each variable, whether 
it is used or not. This simplifies storage of variables con- 
siderably and allows easy and instant access to any vari- 
able. The typical BASIC interpreter must scan through a 
table of variables to find the one it wants to access; the 
interpreter necessarily wastes a lot of time doing so. 
The PRINT Statement 

Lines 59000 thru 59400: To get numeric values to the 


a0 Siepley, statements of the form: 


_ PRINT A 


PRINT X,Y,Z 


are awed in FLOPTRAN. When pamilbiole virtibles are 
printed by a single statement, they may be separated by 
either commas or semicolons, In both instances, the num- 
bers that have been: requested are translated from 
floating-point binary radix to: ASCll-encoded decimal 


“) radix and are printed with a space’ between them. After 


the final variable is printed (or if no variables are to be 
printed) a carriage return - -and line feed JER LF) are 
printed to the screen, 

The PET read-only-memory seeing: ‘at location 
hexadecimal DCAF does the hard work of converting 
from binary to ASCII (American Standard Code for 
Information Interchange) decimal once the value to be 
converted is placed in the “floating-point accumulator” 
on memory page 0 (hexadecimal addresses 00BO thru 
00B5); the ASCII string to be displayed is left at the top of 
page one and ends with a byte of 00. The 6502 code that 
the compiler generates to take this string and print it out 
(using the subroutine at hexadecimal address FFD2) is 
documented in the comments with the FLOPTRAN com- 
piler listing (listing 1). 
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More Printing Terminals 
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DIABLO ee) 
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The INPUT Statement 

Lines 59500 thru 59780: To read in numbers from the 
keyboard during program execution, statements of the a 
form: : 


INPUT P 


‘INPUT Q:R,S 


are used. As with the PRINT statement, either commas or 
semicolons are valid delimiters to separate several vari- 
able names. (In fact, you can leave out the commas or 
semicolons and FLOPTRAN will not mind; but then 
BASIC will misunderstand you.) 
The compiler generates code that prompts the user by °’ 
printing out the variable name awaiting input, followed - 
by a question mark. It then accepts input via the standard 
subroutine (hexadecimal location FFCF) and puts the 
input string into the BASIC input buffer on page 0. The 
read-only-memory subroutine at hexadecimal location 
D68D converts this string to a floating-point number, 
which is then stored in its proper location. BS 
The IF Statement é ; : : 
Lines 58500 thru 58840: The only allowed forms of IF 
statement in FLOPTRAN-IV are the simplest ones: . 


IF W GOTO 252 
and —_ 

IF } GOSUB 30 
These statements test the variable whose name follows 
the IF; if that variable’s value is nonzero, the statement is 


considered to be true, and the GOTO or GOSUB is 
executed. If the value of the variable is exactly 0, the 


statement is false, and the GOTO or GOSUB is skipped... 4 


Program execution proceeds with the next statement; 
note that, in the event of multiple statements per line, 
FLOPTRAN does not skip the rest of the line—unlike 
Microsoft BASIC, which executes the rest of the line only 
when the IF statement is true. (It is wise, therefore, to 
avoid using statements following, an IF on the same line, 
to avoid incompatibility with BASIC.) - 7. o. /1. 
After testing for zero versus nonzero, this routine can 
do one of two things: if the expression is true (nonzero), 
control transfers to the appropriate GOTO or GOSUB 
routine; otherwise, control transfers to the next state- 
ment... - gant Nees ! 
GOTO or GOSUB Statements ads ee 
Lines 58700 thru 58840: Both of these statements are 
handled in identical ways; the only difference is whether 
a 6502 JMP (jump) instruction or a JSR (jump-to-. 
subroutine) instruction is compiled to the tape file. Since 
the compiler, during its first scan through the FLOP- 
TRAN source program, cannot know the correct abso- 
lute address to go to, it temporarily fills the 2 bytes 
following the JMP or JSR with 0s. It also records, in col- 
umn 0 of array GO%, the location of those temporary 
filler Os, so that the missing addresses can be added later. 
Since integer arrays use much less space than do floating- 
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point arrays in PET BASIC, GO% is an integer-type two- 

dimensional array. Inasmuch as integers must be within 

the range —32,767 to +32,767, FLOPTRAN subtracts 
32,767 from the actual address before storing it and adds 
the same value when reading the address out (in line 
60080). . : ; 

Column 1 of GO% stores the target line number for the 
GOTO or GOSUB. After the compilation is finished, the 
target line numbers will be looked up in table LN% (lines 
60000 thru 61000), which contains the actual address of 
the compiled code corresponding to the desired line 
number. Then, the address of the first of the pair of bytes 
to be replaced is written to tape, followed by the 2 correct 
bytes for the branch. When the contents of the tape are 
loaded to memory, these bytes have the effect of correct- 
ly filling in the previously incomplete addresses in the 
body of the compiled program. . : 

Because the original PET read-only-memory routines 
limit arrays to 256 elements, FLOPTRAN-IV is set up to 
handle programs with line numbers in the range. 0 thru 
255 only. This restriction, however, can be removed with 

. additional programming if more lines are needed. . 
-’ The REM Statement - : : 


Lines. $6500 thru ‘56540: Remarks, preceded by the - 


reserved word REM, are not compiled;,the compiler skips 
over them to the beginning of the next line of. the pro- 
gram, just as is done in interpreted BASIC. 
The RETURN Statement eet 

Line 50420: This statement simply causes a 6502 RTS - 
(return-from-subroutine) instruction to be written to: 
tape eo - 





. compiler 






Arithmetic Operations 

* Arithmetic operations with variables comprise the 
remainder of the FLOPTRAN-IV compilers repertoire, « 
Because this is such a tiny compiler, it does not handle + 
multiple arithmetic operations per assignment. The pro- =. 
gram to be compiled, therefore, must have its arithmetic. 
broken up into elementary operations. For example, a- 
statement like: : oe : : 











_D=(A=B)/LOG(C) 


must be written out as: 






D=A~B:E=LOG(C):D=D/E _ 


(assuming that E is not being used otherwise). 

Because of this restriction on the permissible forms of ¥ 

. arithmetic statements, the part of the compiler: which : 

handles them is simple and consists only of lines 50440 | 

thru 51120. One special type of equation, which is of the * 
form: - ; : ; 















 Vvew 






» is so simple that it is handled separately in lines $5600: 
‘thru 55660, The extensive comments included with the . : 
listing make this part of the compiler rather straightfor- ~ 
. This completes our description of the FLOPTRAN-IV. 

Program as‘ given in listing 1. The compiler - 
checks for most errors as it works through the source pro- « . 
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*"” "Demand for our Ad 841 1/0 computer terminal has - 
been great. And now it's getting even greater. So call your . 
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* 14.9 cps printout :* toy het 
* High quality Selectric printing .... 
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FLOPTRAN does not allow the 
appeararice of uncompiled constants in 
an arithmetic statement. 




















ene Ne ee 

gram; when it finds an unrecognizable statement or a 

branch to a nonexistent line number, it closes the output 

file and displays the line number containing the 

erroneous statement number. This makes one part of the 

Seguin task easy. FLOPTRAN’s compatibility hi 
es preliminary program. tes! le. 

Oot nel sang Eavss sr cena are Spy, Up WWarpeet carte STADE (though perhaps slow) using Pte I PET's BASIC intent 

CITE UNIVERSAL COMPUTING MACHINE: $39.85 Apple, TRS-80 preter; this debugging option helps in the discovery and 

A sm progrmmatn competing tsi strucert ovend «20 rew.x 28 elem tain dois elimination of many other types of errors. 

. ered In abbreviated form, table 2 gives a summary of 

FLOPTRAN-IV syntax. Table 3 presents a very compact 

“summary of the critical read-only-memory subroutine 

addresses in the original-style PET. (It is probably’ too 

compact to be useful to a novice user, but for the exper- 

: ” : _tenced assembly-language enthusiast, table 3 should 

- Ses nepe Wy moh o vom eh et Denia ech doy schon os eat i ero “make sense and be a valuable guide to the important 
mines’ "entry points, The table is entirely in hexadecimal; P refers 
to ee rimary floating-point accumulator, where a 
a tt rene nd Woden pr ‘pearl loating-point binary number is stored in hexa- ~ 
” Siam pied pb 100 scones, boro tease ert wine’ Fane Acar. 40 38 deca incalions cer pa OOBS. S refers to the secon-.” 
CIWNIVEREAL BUCINEES MACHINE: This grogem io devigned to SHPLIEY ond SAVE TOME for the accumulator, located at hexadecimal locations OOB8 ~ 

Scovel Company Masan nd Nit pepemend mpeeidetntetowen omen eodiemestrgteex’ | ° thru OOBF; and A; X,-and Y are internal registers of the. 

lta rd sales FOReCATERS ee Soetas/tarmaron 6502 microprocessor.) It is unnecessary, however,, to 
me! tn te ELEETIOE MICE tide sd wr CHT bout: nog tasise lees 7 ei “ 
deta, lociades 3 oddeo Heide (yours, Gill ‘hig Fabel ou! mai ‘oO. suc~ 

mind eine ert : ae * cessfully use FLOPTRAN-IV, The lngow! as given does 

i can ilosoneeh all the necessary translation.’ ae Ms 


oS TT Sample FLOPTRAN-IV Progr 
I Siding 2 iia aacile Vcgre waiter Getinely Ge ‘ 
FLOPTRAN- IV language. It solves a simple problem . -, 
‘from the Parker Brothers game Risk: if an attacker rolls. 
" three dice and a defender rolls two, what are the odds of 
each of the possible outcomes? This puzzle was analyzed. | 
and discussed in detail recently by Bruce'D Barnett (see: -. 
. Feference 1). If you don’t play Risk, however, don’t be + 
concerned—the important thing for our purposes here is: 
that this problem provides a good sample task to exercise 
Siocon, Newer er pd the capabilities of the FLOPTRAN-IV. compiler.: «°°: 
pall eee eS ere ‘eens yh th few significant. items. to: note. in’. the: 
MATHEMATICS SERIES: Completa Package $49.95 Apple only +” IPTRAN-IV program of listing 2: First, since FLOP- *) 
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39 Suneace raveen pom te ELEGAWCE sad BEAUTY of MATHEMATICS ty wal ““Qne") to be equal to one, as in the ‘ assignment. “LET: P 
= yap eoewet Ue ro nec painters : ' Om” in line.1: Then the arithmetic statement to decre- 
“ment ‘A can be correctly written as “A= A—O” (line 3). 
While the necessity to define constants. in arithmetic 
ww a statements is an occasional inconvenience, it gives the . 
LLGATTLE OF miDWAY: You oe in commend of he ULE HORNETS’ OIVE-BOMBER squedevn. ¥ " compiler. a great speed advantage. In fact,: one of the - 
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| fRoveer Petoarwbory grate ac ies envairon sonar 71) . ASCII numeric constant into binary each time it is en- ° 
3 Ormee EATALO-A8 pope we sng in tren ou gl mB Appentt ROM Cad countered. Because of this, it is a recommended practice ql 
Saeed ie 
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repeatedly used, in order to avoid repeatedly converting. 
the constant from ASClIl-encoded decimal to binary. 
ao forces the user to follow this efficient pro- 
cedure. 
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Statement 
Type 


Description 


initialize a variable during Compilation; 
must be 60 characters or less, cannot use variables - 


output a variabie’s value to screen; 
gives 1 space between values printed and 
a “return” at end 


read in a number from keyboard 
(prompts with variable name) 


conditional branch: the GOTO or GOSUB 
following will be executed if the variable - | 
after the IF is nonzero; skipped otherwise | 
unconditional transfer to line number 


subroutine call; returns to statement 


Examples 
LETA=1 

LET B=EXP(2y2 
PRINT X : 
PRINT P,O;R 
PRINT 


INPUT Z 
INPUT J;K,L 


IF SGOTOO 
IF T GOSUB 255 


GOTO 89 


following GOSUB when done 
REM remarks; skip to next line number 


BASIC control at program end 


* RETURN : return from subroutine, and return to | 


. arithmetic ee perform the specified floating-point 


: afithmetic operation, statements can 
have only one petane to right of 


z : equals s' n 


wa) varies must t have sin leotter siphabetic names. 
All lines must be numbered 0 thru 255. 


GOSUB 176 


"REM THIS IS A TEST 
. RETURN: : 
C=D - 
E=F+G 
H=~I 
J=ATN(K) 


Variables must be initialized before use; failure to do this results In a random initial value, 


“Table 2: Say of FLOPT. RAN. LIV syntaz. Due to the nature a the compiler, he LET statement can 1 be an eee of up 
. to sixty characters but can use only arithmetic operators, functions, and constants, The arithmetic statement sales must not 
use the word LET) can use variables only and can b coritatts at most, one operator or function. 3 ; : 


A second item to note is the method used (in lines 25, 
29, 33, 39, 43, 45, and 51) to compare the relative 
magnitudes of two variables. In line 25, for example, the 
real question being asked is: “Is X. less than W?" Since 
FLOPTRAN-IV can only test for-zero versus nonzero in 
its IF statement, the programmer must set up a test 
variable, Q in this case, that will answer the desired ques- 
tion by being either nonzero for true or zero for false. For 


example, after the assignment “Q=X—W”" in line 25, the. oe 
statement “Q=SGN(Q)” returns the value +1 if Q is 
positive, 0 if Q is zero, and —1,if Q is negative. By add- -* 


ing one in the statement. "Q=Q+O", the ultimate result 


is that -Q equals zero if and only if X is less than W, --’ 
Within. the framework of statements 25 and 27, this. 
‘means pat line 27 will be executed only when Xi is less 

W... “ NEXT loops and ‘other structures. unavailable- in 


ql Finally, note the “extra” RETURN statement at the end 

‘of the: program (line 120). In BASIC, this statement is 
wrong and gives a RETURN. WITHOUT GOSUB error 
message when the interpreter executes it; however, in 
FLOPTRAN-IV, the RETURN is necessary. It tells the 
“Microprocessor that’ the machine-language routine, 
-which was called by either SYS or USR, is finished and 
that control now returns to the BASIC operating system. 
I neglected to include the RETURN in my first compila- 
tion.of this sample program and was rather embarrassed 
when, after executing perfectly and printing out the cor- 
rect answers, the machine “crashed” and had to be reset 
for further use. 
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Comparison of FLOPTRAN-IV and PET BASIC 
A sophisticated optimizing. compiler can’ usually 
generate extremely efficient machine-language programs; 
~ a common result is a program that runs ten to a hundred 


times faster than an equivalent interpreted version. . 


FLOPTRAN doesn’t do quite that well, although its per- 
formance is significantly better, than iat of PET BASIC 
in all my tests, 

For the Risk-odds-calculation program of listing 2, for 
“example, the program: took 890. seconds (almost. 15 


minutes) to reach the answer using the BASIC inter- ~ 
preter. The FLOPTRAN-IV compiled version finished in: 


only 97 secofids, which gives a speed advantage of better 
than 9 to 1! (Although it is possible that some speed could 
be gained by rewriting the BASIC program to use FOR- 


FLOPTRAN-IV, I estimate it would be a small i improve 
“ment, est. pechably less than a factor of 2.).’. 

- , The original BASIC program used as the FLOPTRAN 
source code: occupies 627 bytes plus 126 bytes for 


variables, for a total of 753 bytes. The compiled FLOP- . 


TRAN program is bigger, taking-1437 bytes plus its stan- 
dard 130-byte table of twenty-six: variables (not all of 
which are used in this program), for a total of 1567 bytes. 
The compilation time for this program is about 4.5 
minutes, most of which is spent writing to tape. 
Another simple test program, one that doesn’t show 
such a great speed advantage for the FLOPTRAN com- 
piler, isa a program to factor a large odd number by trying 
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3a Hexadecimal Function of 
dress Routine 


s-P 

JSR D9S5E, then S + P 
S+P . 
normalize P - 


LOG(P) 


cae eo S pseudoregister + P pseudoregister . 





sign c 


118 PBR 2g 


~ Hexadecimal ” 
|. Address 


roundoff 


Hexadecimal Function of 


Address Routine : 
DSSE [(A) + 100(Y)]~S, separating sign, set sign 
é com , eit BS) inA i . 


rison, return with (I 
D9E4* is + i 
DAT4 A) +. 10Q(Y)]—P, separating sign + ; 
uP Foundofi(P)—[00 + 100(Y)], merging sign 


Bg, with rounding 
P-S, were rounding 
roundoff( 


Examples: Hexadecimal Values 
of Bytes for i 


Contents 


fraction, byte 3. 
fraction, least. 
sigalicant byte 
rison 
le 





Table 3 3: ‘Overviwe of tiseful addresses and constants used by the ‘eilgtial versie PET. Table 3a is a list of entry points to 


subroutines within the PET's read-only-mémory firmware. Table 3b explains. the.makeup. of. the..two floating-point” 


7. pseudoregisters Pand S. Table 3c gives the locations of five constants stored in the read-only-memory area of the PET. In table 
+ 3a, the routines marked with an asterisk (ie: all arithmetic operations) must be set up before execution as follows: hexadecimal -. 
* location OOBE must contain the exclusive-OR of the contents of hexadecimal leeetions 0085 _ OOBD. vee the contents Bet. 





all ‘odd numbers as potential divisors, from 3 up to the | 


square-root of the number, The compiled FLOPTRAN 
code takes 60 seconds to factor the number 567,890,123; 

the same. program run in PET BASIC requires 201 
seconds, a speed advantage of better than 3 to 1 for the 
FLOPTRAN compiler. But, after the BASIC program has 
been rewritten for speed, the revised program executes in 
101 seconds, giving a speed advantage of 1.7 to 1 for 
compiled FLOPTRAN. 
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., hexadecimal location GOBO must be placed in the 6502 accumulator, it : es 7 





One of the fedgons that the BASIC interpreter does not 


have much of a disadvantage in this factorization prob- 


lem is that the BASIC program needs to use only a few 
variables, so that little time is wasted scanning through a 
variable table. Also, this program performs very little 
decimal-to-binary conversion and a small amount of 
branching from one line number to another (which 
requires more BASIC scanning to find the target line). 
These three factors contribute to this problem's lower 
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' 
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| Soave FLOPT: RANG VV} program> This program calculates the possible outcomes sah a dice roll in the game Risk, with the 


attacker rolling three dice and the defender rolling two dice. See text Prd details. 


' 
















LIST -120 
+ LET FeO. “13 fst-0 : 29 O=u-¥ i Al Ta? ; Of FaFeo 
sLET 690 - _ FE goro 1? 202SGN(Q) 2Z8Y- 360TO 11 
tLET H=0: 302040 Y2T 
aLET J=0 1s sare 3. tIF @ 8010 39 FE Katto 
sLET A=? : mt 43 0=7-X 160T0 1t 
sLET 926 17 LET m6: 31 Tsu 20=S6N(Q) 
LET C™6, f ed 109040 i 100 BxB-9 
. SLT O=1, 2 eto ‘ 1veT: HIF Q@ GOTO 51. HIF 9 GOTO 7 
Daed-o - : 23 van 33 o=x-u 45. 0V-U 110 Cet-9 
IE A GOTO 9” el DS | a ~- p@aS6NCQ). . 10S64(Q) IF ¢ e010 5 
e ee oak 1XeC 3 102040 1020¢0 ‘ 
4 gova 100. hs ar see “ATF @ BOT 39° t1F @ GOTO. 53 120 PRINT F,6,H 
gag . : - 7 Fa 2FaF/T : 
; 3 LET Le : syeae a 3S Tex : 47 GOTO 61 1626/1 
oe OX rt) PS ts m rd “sHeH/E Oe 
_ ? Let an s02senca) 3 1WsT wee aYaW ty eh SPRINT F,6,H ¢ 
78 aQaaeo: : s0=86"(Q) — SRETURY 
9 Ler 7 “cp RIF @ GOTO 29 - 39 Qs2-¥ 205040 CO ie 8 
- PEE aoe eats Oh s0=S60(0) t1F @ GOTO 71 
: a7 TeX: 107000 : : bi 
ake, » SIF @ e0TO as” 2 $3 e600 er 
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s80T0 11... 





_the eaaplled program can be run, This is sau fins 


the FLOPTRAN-IV loader program in listing 3. 
for the compiled code (in the variable PC, which serves as 


‘ a program counter), POKEs the following numbers into 


consecutive memory locations until it encounters a ~1 
end-of-program marker (written to the tape by line 60060 
of listing 1), then. reads in the addresses and correction- 
bytes to put into those GOTO and GOSUB instructions 
that need them. A final —1, written to tape by line 61000 


of listing 1, ends the loading process. : 
“~" The loader program prints out the starting and ending 

addresses of the compiled code so that the user can check - 
that no data blocks were dropped by the PET’s tape. 


recorder, I did not include a subroutine in the FLOP- 


* TRAN compiler to force the PET’s tape-recorder motor. 


:. “to leave extra gaps between data blocks (if necessary, this 


:. can be done with a POKE 59411,53 instruction). Instead; 


 Thave added a 5000 to 10,000 pF oa which is con- 


The discharging capacitor makes the, motor. run on for’ 
. some time after it would normally stop. If your machine’ 
.. needs longer gaps, you may add the above POKE state- 
between lines 49100 and 49120 (this is. - 








_ execution time: On the other hand, the Risk program ve 


many’ variables and branches, giving the FLOPTRAN ° 
compiled Program more wad an nedee there. i i 


Final Remarks’. ae ss 

When the FLOPTRAN-! IV Sales; program is run, the 
result is a set of numbers that have been written to the 
PET’s cassette tape drive. This tape, which contains the 
location and contents of the machine-language program 
that is the compiled equivalent of the given FLOPTRAN- 
IV source program, must be loaded into memory before 
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. nected across the motor. terminals d 


automatically causes the recorder. to leave enough space. 


ment, perhaps 


“+ within the frequently called subroutine which fetches the: 
~ next nonblank character). ” ide dect ky ON 


By choosing the starting adres: for the compiled ; pro- 
gram aporopriay you can load the compiled program 
into memory then load a monitor program that will 
allow you to save the apt annigh code as a binary machine- 
language file. Generally these binary files are much more 
reliable than ASCII data files, and of course, they load 
much faster. . * 

You can also locate a compiled program in the video- 
display area of memory, locations decimal 32,768 thru 
33,791, provided that. the program is small enough to fit. 
Running such a program gives very interesting visual 
effects, 


SORSmseszmeeseB, No. 


This short BASIC program reads in the starting address .s 


mmemectomeRe ese Mesh 


recording; this: 





«fall. At 


SORCERER* 
SOFTWARE! 


Unless otherwise noted, ali programs are on cassette and 
; _, tequire only 8K of memory. we 


FORTH 


mew! Now Sorcerer owners can enjoy the convenience and speed of the fascinating FORTH 
programmin, language. Based on FIGFORTH and written by James Albanese, this version 
was desi especially for the Sorcerer and includes the capability to read and write data 
{screens} to cassette tape and a complete on-screen editor. Requires at least 16K qf Ny 
new GRAPHICS ANIMATION by Lee Anders. This package provides the BASIC program- 
mer with a powerful set of commands for graphics and animation. The program is written in 
machine language but is loaded together with your BASIC program and graphics definitions 
with a CLOAD command. Any image from a character to a large graphic shape may be 
plotted, moved, or erased with simple BASIC commands. Encounters of plot character 
sets with background characters are detected and background images are preserved. Con- 
tains a medium resolution plotting routine. A keyboard routine detects key presses a 


_ | carriage returns. Includes a separate program for constructing images. 


new! STARBASE HYPERION™ by Don Ursem, At last, a true strategic space game for the 
Sorcerer! Defend a front-line Star Fortress against invasion forces of an alien empire, You 
create, deptoy, and command entire ship squadrons as weil as ground defenses in this. 
complex tactical simutation of war in the far future. Written:in BASIC and Z-80 code. Fult 
graphics and reattime combat status display. Includes full instructions ‘and STARCOM battle 
manual. Requires at least 16K of RAM.. oe 5 $17.95 


new! HEAD-ON COLLISION™ by Lee Anders. You are driving clockwise and a computer- 
controtled car is drivi ise. The computer's car is trying to hit you head on, 
but you can avoid a collision by changin; lanes and adjusth your speed. At the same time 
you try to drive over dots and di rons to score points. Three levels of play, machine 
language programnin and excell graphics make this game chaltenging and exciting for 
16K of RAM is required. 2. At A o $14.95 
new! LUNAR MISSION by Lee Anders’ Land your spacecraft softly on the moon by 
Controlling your craft’s three propulsion engines. Avoid funar craters and use your limited 
fuel sparingly. You can see both a profite view of the spacecraft coming down and a plan 
view of the tanding area. Land successfully and you get to view an animated walk on the 
moon. Nine levels of play provide a stiff chatlenge to the most skilful astronaut. Requires at 
Yeast 16K of RAM. |. ae eee eer eee eee $14.95 
ew! HANGMAN/MASTERMINO ty Charles Finch. Two traditional games are throught to life 
by Sorcerer aphics. HANGMAN has three different vocabulary levels for you to choose 
from. in MASTERMIND, the computer selects a four-character code and you have to uncover 


it These two games provide an enjoyable way for young people to develop their vocabula 
and their Togeal pelted abiity. rites in BASIC. ade a S119 





QS SMART TERMINAL by Bob Pierce. Convert your Sorcerer to a smart terminal. Used with a 
modem, this program provides the capability for you to communicate efficiently and save 
connect time with larger computers and other microcomputers. The program formats 
incoming data from time-sharing systems such as The Source for the Sorcerer video. 
Incoming data can be stored (downloaded) into a file in RAM. Files, including programs, may 
be saved to of toaded from cassette, listed on the video, transmitted out through your 


modem, or edited with an on-board text editos. Interfaces with BASIC and thes ct : 


Processor Pac. : 


OPX™ (Development Pac Extension) by Oon Urse Serious 780 program developers will 
find this utility program to be invaluable. Move the line pointer upward. Locate a word or 
symbol. Change a character string wherever # occurs. Simpte commands altow you to jump: 
directly from EDIT to MONITOR or DDT80 modes and automatically set up the 1/0 you want 
for listings, Built-in serial driver. Stop and restart listings. Abort assembly with the ESC key. 
Save backup files on ure at 1200 baud. Load and merge files from tape by file name. 
Versions for 8K, 16K, 32K, an 48K Sorcerer all on one cassette, Requires the Sorcerer's 
Development Pac.’ ite ake a es vin $29.95 





PLOT by Vic Tolomel. High res and low res modes 

SHAPE MAKER™ by Don Ursem, An on-screen cl 

DEBUG by 8ob Pierce. Debug machine language propams 5 
SOFTWARE INTERNALS MANUAL by Vic Te i. “page book . 


Other game programs: .° 
MARTIAN INVADERS™ by James Albanese 
NIKE II™ by Charles Finch and Bob Brotfel 
TARK TRAP by Don Ursem 


MAGIC MAZE™ by Vic To! 
FASTGAMMON™ by Bob Christianser 


QUALITY SOFTWARE | | 
6660 Reseda Bivd., Suite 105, Reseda, CA 91335 
telephone 24 hour, seven days a week (213) 344-4509 


WHERE 10 GET IT: Ask your nearest Sorcerer dealer to see Quality Software's Sorcerer 
rorrams. Or, if you prefer, you may order directly trom us. MasterCharge and Visa card- 
jolders may telephone their orders and we will deduct $1 from orders over $19 to compen- 
sate for phone charges. Or mail your order to the address above. California residents add 6% 
sales tax. Shipping Char; 1s: Within North America orders must include $1.50 for first class 
speak and handling. Outside North America the charge for airmail shipping and handling 
is $5.00 — payable in U.S. currency. 

“The name “SORCERER” has been trademarked by Exidy, Ine. f 
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Circle 149 on Ingulry card. 


Listing 3: FLOPTRAN-IV loader program. This program is exe- 
cuted to transfer the compiled FLOPTRAN-IV program from 
the PET cassette tape drive into memory. See the “How to Use 


the FLOPTRAN-IV Compiler” text box for details. 


10 OPEN |: INPUT #1, PC: PRINT “BEGIN AT”; PC 
20 INPUT #1, A: IF A= >0 THEN POKE PC,A: 

PC =PC +1: GOTO 20 ae 
30 PRINT “END AT”; PC-1 . ' 
40 INPUT #1, PC; IF PC<0 THEN CLOSE 1: END 
50 INPUT #1,A: POKE PC,A: INPUT #1,A: 

POKE PC +1,A: GOTO 40 f 


What other logical improvements can be made to make 


‘ FLOPTRAN faster and more useful? String-handling 
: capabilities sometimes come. in handy; it would not be 


hard to.allow the compiled program to recognize string 


-° variables and print them when requested, though I’m not 
_ sure how you would go about manipulating strings. - 


Perhaps the compiler should not allocate a fixed 


amount of space to a table of only twenty-six variables; . 
- instead, it might define variables when needed by the 
’ program. Arrays of variables, which are also valuable to 
have, should not be hard to implement. . °°. ¢ 


, FLOPTRAN ~ suffers from the. simplicity. of. its 
conditional-branching structure; an JF statement that 
could test for conditions other than zero/nonzero would 
be a profitable addition. It also would be good to have a 
looping. structure available, similar: to BASIC’s 
FOR...NEXT, or perhaps like FORTRAN’s DO-loop. 
Even a simple decrement-and-skip-on-zero calculator- 
type instruction would save time and space in many pro- 
gramming situations. Simple integer variables and integer 
arithmetic might also be worth having for many tasks. 

I've resisted pursuing some of the above modifications 


- to FLOPTRAN-IV in order to retain the language's com- 


patibility with BASIC; perhaps that compatibility should 


| be given up in exchange for more power and efficiency. 
:-, 1 would-be interested to hear from readers who have 


used or. improved. upon FLOPTRAN: ‘or. who have 
adapted it to other machines..The idea of a tiny compiler 
that uses an existing BASIC interpreter (especially one 
that permanently resides in read-only memory) is a sim- 
ple idea, but I haven't seen it discussed in print. It is possi- 


’ ble that if a manufacturer were to have a few hundred to 


a couple of thousand bytes: of:read-only memory 
available beyond the BASIC interpreter,’ he could put a 


better version of a FLOPTRAN-like compiler in‘ that 
space so that it would always be available, Interpreted - 

- BASIC is wonderful, but, there are’ some programming 
= jobs only a ‘ 


jobs that need more speed and efficiency 
compiled language can fill. Mee oe 


4 
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